home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATH / FSULTRA1.ZIP / ULTRATPU.PAS < prev    next >
Pascal/Delphi Source File  |  1992-06-18  |  2KB  |  82 lines
  1. { 
  2. FSU - ULTRA    The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. } 
  27. {
  28.   File: ULTRATPU.PAS (Program to make a .TPU file)
  29. }
  30. {$IFDEF x}            unit ultrax;
  31. {$ELSE} {$IFDEF f}        unit ultraf;
  32.     {$ELSE}    {$IFDEF fx}    unit ultrafx;
  33.         {$ELSE}        unit ultra;
  34. {$ENDIF}{$ENDIF}{$ENDIF}
  35.  
  36. interface
  37.  
  38. Function i32bit : LongInt;
  39. Function i31bit : LongInt;
  40. Function i16bit : Integer;    { You can declare this to be Word }
  41. Function i15bit : Integer;
  42. Function i8bit  : ShortInt;    { You can declare this to be Byte }
  43. Function i7bit  : ShortInt;
  44. Function i1bit  : Boolean;
  45. Function uni    : Single;
  46. Function vni    : Single;
  47. Function duni   : Double;
  48. Function dvni   : Double;
  49. Procedure rinit(x,y : LongInt);
  50.  
  51. type cp  = record c: Integer; p: Pointer; x: Array [0..36] of LongInt; end;
  52. var    SWBstate   : Array [0..4*sizeof(cp)+37] of byte;
  53. const    SWBsize    = sizeof(SWBstate);
  54.  
  55. implementation
  56.  
  57. var    tmpq    : Comp;
  58. const    neg31    : Integer = -31;
  59.     neg63    : Integer = -63;
  60.  
  61. Function i32bit : LongInt;   external;
  62. Function i31bit : LongInt;   external;
  63. Function i16bit : Integer;   external;
  64. Function i15bit : Integer;   external;
  65. Function i8bit  : ShortInt;  external;
  66. Function i7bit  : ShortInt;  external;
  67. Function i1bit  : Boolean;   external;
  68. Function uni    : Single;    external;
  69. Function vni    : Single;    external;
  70. Function duni   : Double;    external;
  71. Function dvni   : Double;    external;
  72. Procedure rinit(x,y : LongInt);  external;
  73.  
  74. {$IFDEF x}            {$L ultrx_tp.obj}
  75. {$ELSE}    {$IFDEF f}        {$L ultrf_tp.obj}
  76.     {$ELSE}    {$IFDEF fx}    {$L ultfx_tp.obj}
  77.         {$ELSE}        {$L ultra_tp.obj}
  78. {$ENDIF}{$ENDIF}{$ENDIF}
  79.  
  80. begin rinit(1234567,7654321);
  81. end.
  82.